home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / varie / pl_3_0.lha / Install-Planetarium < prev    next >
Text File  |  1996-11-06  |  8KB  |  348 lines
  1. (set source-lha                "Tools/LhA")
  2. (set run-lhapatterns        "Tools/LhaPatterns")
  3. (set run-lha            "RAM:LhA -a")
  4. (set Planprog           "plan.lha")
  5. (set Pix1            "tele1.lha")
  6. ;
  7. ;---------------------------------------------------------------------
  8. ;
  9. ; Installer-Script for Planetarium
  10. ;
  11.  
  12. ; strings
  13.  
  14. (set #install-where-msg
  15. (cat        "                                                     "
  16.         "          Möchten Sie Planetarium auf Diskette       "
  17.         "            oder auf Festplatte installieren?        "
  18.         "                                                     "
  19.         "           Do you want to install Planetarium        "
  20.         "                  on disk or harddisk?               "
  21.         "                                                     "
  22.         "           Voulez-vous installer Planetarium en      "
  23.         "               disquette ou disque-dur?              "
  24. ))
  25.  
  26. (set #install-where-help
  27. (cat    "\nHier entscheiden Sie, ob Planetarium auf Disketten "
  28.         "oder, falls vorhanden, auf Ihre Festplatte installiert "
  29.         "werden soll.\n\n"
  30.         "Wenn Ihr Amiga-System mit einer Festplatte ausgerüstet "
  31.         "ist, sollten Sie Planetarium auf jeden Fall dort "
  32.         "installieren."
  33. ))
  34.  
  35. (set #install-hd-msg
  36. (cat        " Wo soll das Planetarium-Verzeichnis erzeugt werden? "
  37.         "                                                     "
  38.         "  Where should Planetarium's drawer be installed?    "
  39.         "                                                     "
  40.         "    Ou dois j'installer le tiroir de Planetarium?    "
  41. ))
  42.  
  43. (set #install-hd-help
  44. (cat    "\nHier müßen Sie angeben, wo auf Ihrer "
  45.         "Festplatte das Planetarium-Verzeichnis installiert werden "
  46.         "soll.\n\n"
  47.         "Das Installationsprogramm erzeugt dann in dem von Ihnen "
  48.         "angegebenen Verzeichnis eine neue Schublade mit dem "
  49.         "Namen \"Planetarium\".\n\n"
  50. ))
  51.  
  52. (set #floppy-askformat-msg
  53. (cat    "Für eine Disketteninstallation benötigen Sie "
  54.         "zwei formatierte Disketten mit den Namen "
  55.         "\"Planetarium\" und \"Tele\". Sie können die "
  56.         "Disketten jetzt formatieren lassen oder "
  57.         "selbst formatierte Disketten verwenden."
  58. ))
  59.  
  60. (set #floppy-askformat-help
  61. (cat    "\nHier entscheiden Sie, ob jetzt die "
  62.         "für die Planetarium-Installation "
  63.         "benötigten Disketten formatiert "
  64.         "werden sollen.\n\n"
  65.         "Sie können problemlos auch selbst formatierte "
  66.         "Disketten verwenden, wenn Sie ein besonderes "
  67.         "Format oder Disketten verschiedener Größe "
  68.         "verwenden wollen."
  69. ))
  70.  
  71. (set #format1-msg
  72. (cat    "Bitte legen Sie die erste zu formatierende "
  73.         "Diskette in das Laufwerk DF0:\n\n"
  74.         "Diese Diskette ist später Ihre Planetarium-Datendiskette "
  75.         "und trägt dann den Namen \"Tele:\"."
  76. ))
  77.  
  78. (set #format2-msg
  79. (cat    "Bitte legen Sie die zweite zu formatierende "
  80.         "Diskette in das Laufwerk DF0:\n\n"
  81.         "Diese wird danach ihre Planetarium-Hauptdiskette "
  82.         "mit dem Namen \"Planetarium\". Auf dieser Diskette "
  83.         "wird das Hauptprogramm installiert."
  84. ))
  85.  
  86. (set #format1-cmd "sys:system/format <ram:..PLINST.. drive df0: name Tele noicons")
  87. (set #format2-cmd "sys:system/format <ram:..PLINST.. drive df0: name Planetarium noicons")
  88. (set #format-tmp "ram:..PLINST..")
  89. (set #format-err-msg "Fehler Nr. %ld beim Formatieren der Diskette!")
  90. (set #format1-busy "Formatiere 1. Diskette...")
  91. (set #format2-busy "Formatiere 2. Diskette...")
  92.  
  93. (set #copying-aguide "Kopiere amigaguide.library nach Libs:")
  94.  
  95.  
  96. (set #insert1-msg
  97. (cat    "Bitte legen Sie die Diskette mit dem Namen "
  98.         "\"Planetarium\" ein."
  99. ))
  100.  
  101. (set #insert1-help
  102. (cat    "Für die weitere Installation wird jetzt die zweite "
  103.         "vorhin formatierte Diskette mit dem Namen \"Planetarium\" "
  104.         "benötigt.\n\n"
  105.         "Falls Sie vorhin keine Disketten formatiert haben und "
  106.         "keine selbst formatierten Disketten mit den richtigen "
  107.         "Namen haben, brechen Sie die Installation jetzt ab "
  108.         "und starten Sie sie danach neu."
  109. ))
  110.  
  111. (set #insert2-msg
  112. (cat    "Bitte legen Sie die Diskette mit dem Namen "
  113.         "\"Tele\" ein."
  114. ))
  115.  
  116. (set #insert2-help
  117. (cat    "Für die weitere Installation wird jetzt die erste "
  118.         "vorhin formatierte Diskette mit dem Namen \"Tele\" "
  119.         "benötigt.\n\n"
  120.         "Falls Sie vorhin keine Disketten formatiert haben und "
  121.         "keine selbst formatierten Disketten mit den richtigen "
  122.         "Namen haben, brechen Sie die Installation jetzt ab "
  123.         "und starten Sie sie danach neu."
  124. ))
  125.  
  126.  
  127.  
  128. (set #epack_prog
  129. (cat    "                                                     "
  130.     "          Entpacken der Programmdateien...           "
  131.     "             Decrunching main files...               "
  132. ))
  133. (set #epack_prog-help
  134. (cat    "In dem Archiv  \"plan.lha\" befinden sich die"
  135.     "ausführbaren Programme und Dateien, die für den"
  136.     "Programmlauf unbedingt nötig sind."
  137.     "Sie müssen in das Hauptverzeichnis für 'Planetarium'"
  138.     "entpackt werden."
  139. ))
  140.  
  141. (set #epack_pix1
  142. (cat    "                                                     "
  143.     "          Entpacken der Hauptbilder...               "
  144.     "            Decrunching main pics...                 "
  145. ))
  146.  
  147. ;
  148. ; Procedures
  149. ;
  150.  
  151.  
  152.  
  153.  
  154. (procedure do_hd 
  155.     (set default-dest
  156.         (askdir
  157.             (prompt #install-hd-msg)
  158.             (help #install-hd-help)
  159.             (default @default-dest)
  160.         )
  161.     )
  162.     (set @default-dest
  163.         (tackon default-dest "Planetarium")
  164.     )
  165.     
  166.     (makedir @default-dest
  167.         (infos)
  168.     )
  169.     (makedir (tackon @default-dest "Tele" ) )
  170.  
  171. ; Dieses Monster hängt an den Verzeichnisnamen einen '/' an, falls er nicht
  172. ; leer ist und nicht bereits mit ':' oder '/' endet (ansonsten bekommt LHA
  173. ; Probleme).
  174. ;--------------------------------------------------------------------------
  175.         (set dst-dir @default-dest)
  176.         (if 
  177.          (and 
  178.           (> (strlen dst-dir) 0
  179.           ) 
  180.           (and 
  181.            (<> (substr dst-dir (- (strlen dst-dir) 1) 1) ":"
  182.            ) 
  183.            (<> (substr dst-dir (- (strlen dst-dir) 1) 1) "/"
  184.            )
  185.           )
  186.          ) 
  187.         (set dst-dir (cat dst-dir "/")))
  188. ;--------------------------------------------------------------------------
  189.     (message #epack_prog)
  190.     (run (cat run-lha " x " planprog " "  dst-dir))
  191.     (complete 20)
  192.  
  193.     (if (exists "s:plan.prefs")
  194.         (delete "s:plan.prefs")
  195.     )
  196.  
  197.     (message #epack_pix1)
  198.     (run (cat run-lha " x " pix1 " " dst-dir "Tele/"))
  199.     (complete 50)
  200.  
  201. )
  202.  
  203. (procedure do_format
  204.     (set olduserlevel (user 1) )
  205.     (textfile 
  206.         (dest #format-tmp)
  207.         (append "\n")
  208.     )
  209.     (message #format1-msg)
  210.     (working #format1-busy)
  211.     (set retval
  212.         (run #format1-cmd
  213.         )
  214.     )
  215.     (if (<> retval 0 )
  216.         (abort (#format-err-msg retval))
  217.     )
  218.     (complete 15)
  219.     (message #format2-msg)
  220.     (working #format2-busy)
  221.     (set retval
  222.         (run #format2-cmd
  223.         )
  224.     )
  225.     (if (<> retval 0 )
  226.         (abort (#format-err-msg retval))
  227.     )
  228.     (complete 30)
  229.     (delete #format-tmp)
  230.     (user olduserlevel)
  231. )
  232.  
  233. (procedure do_floppy
  234.     (set format-flag
  235.         (askbool
  236.             (prompt #floppy-askformat-msg)
  237.             (help #floppy-askformat-help)
  238.             (default 1)
  239.             (choices "Formatieren" "Weiter")
  240.         )
  241.     )
  242.  
  243.     (if (= format-flag 1)
  244.         (do_format)
  245.     )
  246.  
  247.     (askdisk 
  248.         (dest "Planetarium")
  249.         (prompt #insert1-msg)
  250.         (help #insert1-help)
  251.     )
  252.  
  253.     (set @default-dest "Planetarium:")
  254.     (message #epack_prog)
  255.     (run (cat run-lha " x " planprog " "  @default-dest))
  256.     (complete 40)
  257.  
  258.     (askdisk 
  259.         (dest "Tele")
  260.         (prompt #insert2-msg)
  261.         (help #insert2-help)
  262.     )
  263.  
  264.     (set @default-dest "Tele:")
  265.     (message #epack_pix1)
  266.     (run (cat run-lha " x " pix1 " "  @default-dest))
  267.     (complete 80)
  268.  
  269. )
  270.  
  271.  
  272. (procedure copy-aguide
  273.     (complete 95)
  274.     (if (exists "libs/amigaguide.library" )
  275.         (copylib
  276.             (prompt #copying-aguide)
  277.             (help @copylib-help)
  278.             (source "libs/amigaguide.library")
  279.             (dest "Libs:")
  280.             (confirm)
  281.         )
  282.     )
  283.     (complete 97)
  284.  
  285.     (if (exists "SYS:Utilities/MultiView" ) 
  286.         (
  287.             (tooltype (
  288.                 (dest (tackon @default-dest "Planetarium.guide") )
  289.                 (setdefaulttool "SYS:Utilities/MultiView" )
  290.             ))
  291.         )
  292.  
  293.         (if (exists "AmigaGuide" )
  294.             (copyfiles
  295.                 (source "AmigaGuide")
  296.                 (dest @default-dest)
  297.             )
  298.         )
  299.     )
  300. )
  301.  
  302.  
  303.  
  304. ;
  305. ;
  306. ; GO!
  307. ;
  308. ;
  309.  
  310. (complete 0)
  311. ; Dieser kleine Trick ist notwendig, damit LHA unter 1.3 und 2.0 keinen Mist
  312. ; baut...
  313.  
  314. (run run-lhapatterns)
  315.  
  316. ; LhA wird in die RAM-Disk kopiert, damit das Programm nicht jedesmal von Disk
  317. ; geladen werden muß.
  318.  
  319. (copyfiles
  320.     (source source-lha)
  321.     (dest "RAM:")
  322.     (nogauge)
  323. )
  324. ; Beispiel:
  325. ; (run (cat run-lha " x " archive-tools " \"" dst-dir "\" " tools))
  326.  
  327. (set olduserlevel (user 1) )
  328. (set floppy-install
  329.     (askbool
  330.         (prompt #install-where-msg)
  331.         (help #install-where-help)
  332.         (choices "Festplatte" "Diskette" )
  333.     )
  334. )
  335. (user olduserlevel)
  336. (complete 1)
  337. (if (= floppy-install 0)
  338.     (do_floppy)
  339.     (do_hd)
  340. )
  341.  
  342.  
  343.  
  344.  
  345. (copy-aguide)
  346. (complete 100)
  347. (delete "ram:lha")
  348.